Public Class BaseForm
    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        'If Utilities.AD Is Nothing Then
        '    Utilities.DataAccess.G_ConnectDB()
        'End If
    End Sub

    Public Enum Permissions
        ReadWrite = 0
        [ReadOnly] = 1
    End Enum

    Private L_Permission As Permissions = Permissions.ReadWrite
    ''' <summary>
    ''' Get or Set Permissions for ReadWrite or ReadOnly
    ''' Por defecto los permisos son de Lectura y Escritura
    ''' </summary>
    Public Property Permission() As Permissions
        Get
            Return L_Permission
        End Get
        Set(ByVal value As Permissions)
            L_Permission = value
        End Set
    End Property


    'Public inf As Infragistics.Win.UltraWinToolTip.UltraToolTipInfo
    '''' <summary>
    '''' Set ToolTip to Control
    '''' </summary>
    '''' <param name="control"></param>
    '''' <param name="text"></param>
    '''' <remarks></remarks>
    'Public Sub setToolTip(ByVal control As Object, ByVal text As String)
    '    inf.ToolTipText = text
    '    ToolTip.SetUltraToolTip(control, inf)

    'End Sub
End Class

